3 GOSUB10000
5 B=198
6 BL$="                                       ":GOSUB 7:GOTO9
7 OPEN15,8,15,"I0":CLOSE15:OPEN2,8,2,"$":FORX=0TO156:GET#2,A$:NEXT
8 GET#2,A$:SI=VAL(A$):CLOSE2:RETURN
9 POKE53281,.:POKE53280,5
10 PRINT"[147]        [204][207][193][196][211][212][193][210][160][200]ARDCOPY [211]ETUP         "
15 PRINT"[158]  [215]HAT SELECTION BELOW BEST DESCRIBES"
16 PRINT"  YOUR PRINTER?"
20 PRINT"     1[154]) [195]OMMODORE 1525 OR COMPATIBLE"
30 PRINT"     2[154]) [195]OMMODORE 1520"
40 PRINT"     3[154]) [207]LD [195]OMMODORE 1515"
42 PRINT"     4[154]) [207]THER PRINTER"
45 PRINT"     [209][154]) [209]UIT"
50 PRINT"     [208]RESS 1[154], 2[154], 3[154], OR [209][154].":POKE198,.
60 A=PEEK(203):IFA<>56ANDA<>59ANDA<>8ANDA<>62ANDA<>11THEN60
65 IFA=56THENPA=4:SA=7:C8%=-1:GOTO300
70 IFA=62THENGOSUB60000:GOTO50
80 IFA=59THENPA=6:SA=0:GOTO300
90 IFA=8THENPA=4:SA=7:C8%=0:GOTO300
200 PRINT"[207].[203].[154], PLEASE ENTER THE CORRECT DATA"
202 PRINT"FOR YOUR PRINTER:"
203 FORX=0TO10:PRINTBL$:NEXT
204 PRINT"[197]NTER PRIMARY   ADDRESS --";:INPUTPA$:PA=VAL(PA$)
206 PRINT:PRINT:PRINT"[154][197]NTER SECONDARY ADDRESS --";:INPUTSA$:SA=VAL(SA$)
300 :
301 PRINT"":FORX=0TO20:PRINTBL$:NEXT
302 PRINT"[154][208]RIMARY ADDRESS OF"PA"[157][154]."
304 PRINT"[211]ECONDARY ADDRESS OF"SA"[157][154]."
305 :
310 PRINT"[193]RE THESE SELECTIONS CORRECT?"
312 PRINT"          [[217][154]/[206][154]] OR [209] [154]TO [209]UIT"
315 POKEB,0:WAITB,1:GETA$
320 IFA$<>"Y"ANDA$<>"N"ANDA$<>"Q"THEN315
325 :
330 IFA$="Q"THEN540
340 IFA$="N"THEN10
345 GOTO500
350 :
360 PRINT"":FORX=0TO20:PRINTBL$:NEXT
370 PRINT"   [154][208]LEASE MAKE SURE SIDE"AG"[154]OF YOUR"
375 PRINT"   [204][207][193][196][211][212][193][210] DISK IS IN YOUR DRIVE."
380 PRINT" [208]LEASE PRESS A KEY WHEN YOU ARE READY."
381 PRINT"          ([208]RESS [209] [154]TO [209]UIT)"
382 POKEB,0:WAITB,1:GETA$:IFA$="Q"THEN1000
400 GOSUB 7:IFAG=SITHEN405
401 PRINT"":FORX=1TO20:PRINTBL$:NEXT
402 PRINT"[211]IDE"AG"NOT FOUND...":FORDL=1TO2000:NEXT:GOTO360
405 GOSUB20000
410 PRINT"   [208]RINT FILE IS NOW ON THIS SIDE"
412 PRINT"            OF THE DISK."
415 FORDL=1TO2000:NEXT
416 RETURN
450 :
500 NS=3:FORAG=1TONS
510 GOSUB360
520 NEXT AG
530 :
540 PRINT"":FORX=0TO20:PRINTBL$:NEXT
542 PRINT""
600 PRINT"[208]LACE [204][207][193][196][211][212][193][210] [211]IDE [207]NE [154]IN YOUR DRIVE"
610 PRINT"AND PRESS ANY KEY TO RETURN TO MENU."
620 GETA$:IFA$=""THEN620
700 OPEN15,8,15,"R0:CUSTOM LS BOOT=CUSTOM LS BOOT":INPUT#15,ER:CLOSE15
710 IFER<>63THEN540
1000 LOAD"CUSTOM LS BOOT",8
10000 CR$=CHR$(13)
10005 OPEN15,8,15
10010 OPEN3,8,4,"SETUP"
10020 INPUT#3,D$(1),D$(2),D$(3),D$(4),D$(5),D$(6),D$(7)
10030 CLOSE3
10040 CLOSE15
10050 PA=VAL(D$(4)):SA=VAL(D$(5))
10060 RETURN
20000 CLOSE15:OPEN15,8,15
20010 D$(4)=MID$(STR$(PA),2)
20012 D$(5)=MID$(STR$(SA),2)
20070 OPEN3,8,4,"SETUP":CR$=CHR$(13)
20080 PRINT#15,"P
"CHR$(0)"
";
20082 PRINT#3,D$(1)CR$D$(2)CR$D$(3)CR$D$(4)CR$D$(5)CR$D$(6)CR$D$(7)CR$
20100 CLOSE3
20110 CLOSE15
20120 RETURN
60000 PRINT"[145]  [154][193]RE YOU SURE YOU WANT TO QUIT? ([217][154]/[206][154])":POKE198,.
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 GOTO540